﻿Public Class RequisitoFalloAlta
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante el alta del Requisito")
        Me.codigo = Utils.Enumeradores.Excepeciones.RequisitoFalloAlta
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante el alta del Requisito"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class RequisitoFalloEditar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la actualización del Requisito")
        Me.codigo = Utils.Enumeradores.Excepeciones.RequisitoFalloEditar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la actualización del Requisito"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class RequisitoFalloBaja
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la baja del Requisito")
        Me.codigo = Utils.Enumeradores.Excepeciones.RequisitoFalloEliminar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la baja del Requisito"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class RequisitoFalloBuscar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la búsqueda del Requisito")
        Me.codigo = Utils.Enumeradores.Excepeciones.RequisitoFalloBuscar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la búsqueda del Requisito"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class RequisitoFalloConsultar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la consulta de Requisitos")
        Me.codigo = Utils.Enumeradores.Excepeciones.RequisitoFalloConsultar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la consulta de Requisitos"
        Me.innerException2 = innerException
    End Sub
End Class
